# Downloading a file
start <- proc.time()[[3]]
Sys.sleep(0.1)
elapsed <- proc.time()[[3]] - start
cli::cli_text('Downloaded {.file data.csv} in {.duration {elapsed}}')
#> Downloaded 'data.csv' in 107ms

# Processing step with relative time
last_sync <- Sys.time() - 125
cli::cli_text('Last sync: {.time_ago {last_sync}}')
#> Last sync: 2 minutes ago

# Progress completion
dt <- as.difftime(2.4, units = 'mins')
cli::cli_alert_success('Build completed without errors [{.duration {dt}}]')
#> ✔ Build completed without errors [2m 24s]